home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / mactool / thinkcgu.sit / TC Prog Guide / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1991-02-27  |  4.0 KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>223</cardCount>
  7.     <cardID>2878</cardID>
  8.     <listID>7108</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>-------------------------------------------------------------------
  17. -- Think C Programming Guide v.1.0.
  18. -- February 27, 1991
  19. -- Please send $20 shareware fee to:
  20. -- Ralph Gonzalez, PO Box 54, Newark, DE 19711, USA
  21. -------------------------------------------------------------------
  22. -- This stack was created with Bookbinder 1.0.1, which aids in
  23. -- the creation of HyperCard documents. Bookbinder is $10 shareware
  24. -- by Ralph Gonzalez, PO Box 54, Newark, DE 19711.  Sept 20, 1990.
  25. -------------------------------------------------------------------
  26. -- Changes to the scripts involved: (1) removing references to an
  27. -- "index" card in arrowkey handler ("page" script"); (2) removing
  28. -- the need to update page numbers when "notes" pages are added (on
  29. -- newCard and on doMenu handlers of the stack script); (3) adding
  30. -- UpdateNotesPg handler (notes card script); (4) changing the
  31. -- onMouseUp handler in the Add Notes Pg button.  Also, for HC 2.0
  32. -- compatibility I had to lengthen the bookmark page no. fields by
  33. -- about 4 pixels.
  34. -------------------------------------------------------------------
  35.  
  36. on openStack
  37. show menuBar
  38. global stackJustPrinted
  39. put false into stackJustPrinted
  40. global gettingHelp
  41. put false into gettingHelp
  42. global xrefdepth
  43. put 0 into xrefdepth
  44. global showButton
  45. put false into showButton
  46. global cardJustPasted
  47. put false into cardJustPasted
  48. global cardJustDeleted
  49. put false into cardJustDeleted
  50. global deletedCard
  51. put card field "deletedCard" of card "contents" into deletedCard
  52. global bookmark1
  53. global bookmark2
  54. put card field "bookmark1" of card "contents" into bookmark1
  55. put card field "bookmark2" of card "contents" into bookmark2
  56. pass openStack
  57. end openStack
  58.  
  59. on help
  60. put id of this card into card field "return card" of card "help"
  61. visual iris open
  62. go card "help"
  63. end help
  64.  
  65. on newCard
  66. if the name of this card is not the name of card "notes" then
  67. show background button "Update Page Nos" of card "contents"
  68. end if
  69. pass newCard
  70. end newCard
  71.  
  72. on doMenu choice
  73. global showButton
  74. global cardJustDeleted
  75. global deletedCard
  76. global cardJustPasted
  77. global stackJustPrinted
  78. if choice is "Print Stack..." then
  79. push card
  80. go card "contents"
  81. show field "footnote1"
  82. show field "footnote2"
  83. put true into stackJustPrinted
  84. pass doMenu
  85. end if
  86. if choice is "Paste Card" and┬¼
  87. the name of this card is not the name of card "notes" then
  88. put true into showButton
  89. -- can't show button immediately or the pasted card will have
  90. -- a different background
  91. put true into cardJustPasted
  92. end if
  93. if choice is "Undo" and┬¼
  94. the name of this card is not the name of card "notes" then
  95. put true into cardJustPasted
  96. -- in case you use "Undo" to paste a card
  97. end if
  98. if (choice is "Cut Card" or choice is "Delete Card") then
  99. show background button "Update Page Nos" of card "contents"
  100. -- show button before cut in case paste follows, to prevent
  101. -- change in background before paste
  102. set lockScreen to true
  103. push card
  104. go card "contents"
  105. get the id of this background
  106. pop card
  107. set lockScreen to false
  108. if it is the id of this background then
  109. -- i.e. deleting a true "page" card
  110. if deletedCard is not "" then
  111. answer "Please update page numbers first" with "OK"
  112. else
  113. put the id of this card into deletedCard
  114. put true into cardJustDeleted
  115. pass doMenu
  116. end if
  117. else
  118. put true into cardJustDeleted
  119. pass doMenu
  120. end if
  121. else
  122. pass doMenu
  123. end if
  124. end doMenu
  125.  
  126. on idle
  127. global showButton
  128. global cardJustPasted
  129. if cardJustPasted then
  130. put false into cardJustPasted
  131. -- if pasted card has "page" background, see idle handler for "page"
  132. end if
  133. if showButton then
  134. put false into showButton
  135. show background button "Update Page Nos" of card "contents"
  136. end if
  137. pass idle
  138. end idle
  139.  
  140. on closeStack
  141. global deletedCard
  142. put deletedCard into card